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TITLE Ge cr - returns codes from loaded image. 
“IDENT $¥O%°008/ ° 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vneseckagee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Oeeoket itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


LITY FOR THE USE OR RELIABILITY OF ITS 
S$ NOT SUPPLIED BY DIGITAL. 
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; Author: Elliott A. Drayton 
; Modified By: 


v03-U01 EAD0134 Elliott A. Drayton 
Added psect specification. 
Call get_code (arrray_addr,class,type,version,transfer_offset) 


This routine seperates the information returned by routine 
EXEC_IMAGE for placement in tables used in loading images. 


-PSECT $code,NOSHR,NOWRT PIC 
-Entry get code “m<r2.r3,r4.r5,76,77,°8,r9,r10,r11> 
4(3 rg ; d 
aie 


mov | p) ; Get address of data 
movw (rQ)+, (ap) Return TY 

movw (r0)+,a8 Return CLASS 

movw (r 


Return TRANSFER VECTOR OFFSET 


a : 
)+/a16( ap) 3; Return VERSION 
: Restore updated address 


movw (r0)+,a20(ap) 
movl r0,a4(ap) 
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A table -SEP-1 ERF SRCIGE TCODE. MAR; 1 
GET_CODE 00000000 RG 01 
¢aewoenwon con aeeaet} 
! ; _Psect Synopsis: ; 
PSECT name Allocation PSECT No. Attributes 
ABS. 0000000 ( 9.) 69 ( 0.) NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$CODE 0000018 ¢ 27.) 01 ¢ 1.) PIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
$ewmmeeowecweeecocoooonn n+ 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 7 :00:00.08 0:00:00.37 
pounens processing 135 00: er 3: : 0:76 
Syabol table sort 0:00:00. :00:00.0 
s 2 = 28 0: §: 98 8; 0:00:7 
ee table output 1 0: . -01 0:00: 3. 1 
Psect synopsis output 1 0:00: OT 0: 3: -01 
Cross-reference output 0 83:88: -00 0:00: e- 0 
Assembler run totals 261 :00:00.98 0:00:03.68 


The Ths porking set Limit was 750 pages. 
600 bytes ¢ orages? of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 
0 source tides were read in Pass 1, producing 15 object records in Pass 2. 
pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBJSTARLET.MLB;200 SS” 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:GETCODE/0BJ=OBJ$:GETCODE MSRC$:GETCODE/UPDATE=(ENHS$:GETCODE) 
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